VB6の文字列操作

count=UBound(str)配列の大きさ

■文字列操作

chr	キャラクタコードの文字を返す
asc	文字のキャラクタコードを返す
str	数値を文字列に変換
val	文字列を数値に変換
trim	左右の全角半角空白を削除
ltrim	左側の全角半角空白を削除
rtrim	右側の全角半角空白を削除
lcase	小文字に変換
ucase	大文字に変換
left	左側よりn個の文字列を切り出し
mid	n番目からn個の文字列を切り出し
mid	ステートメントして使用すると文字列を置き換える
right	右側よりn個の文字列を切り出し
len	何文字あるか数える
instr	指定文字列が何番目から存在するか調べる
format	書式指定変換をする

ーーーーＶＢキーーーーー
↑キー 　vbKeyUp 
↓キー 　vbKeyDown 
←キー 　vbKeyLeft 
→キー 　vbKeyRight 
スペースキー 　vbKeySpace 
Enterキー 　vbKeySeparator 
A〜Z 　vbKey(A〜Z) 
Tab  vbkeytab
例) vbKeyZ 　(Zキーの場合) 

ーーーーファイル読み込みーーーー
fnum = FreeFile
Dim str As String
Open "c:\text.txt" For Input As #fnum
Line Input #fnum, str
Close #fnum

ーーーーＣＳＶファイルの考察ーーーー

' String() = Object.split(文字列,区切り文字列)
' csv 文字列などから要素の値を配列に取り出します。

Function split(str As String, spliter As String)
   
    Dim count As Integer
    Dim countPos As Integer
    countPos = 0
    Dim strOut(1024) As String
    
    count = Len(str)
    
    Dim a As Integer
    Dim strPos As String
    strPos = ""
    
        For a = 0 To count
        Dim pos As String
        pos = Mid(str, a + 1, 1)
            If Not (spliter = pos) Then
                strPos = strPos + pos
            Else
                strOut(countPos) = strPos
                countPos = countPos + 1
                strPos = ""
            End If
        Next a
    strOut(countPos) = strPos
split = strOut
End Function